home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #2 / Monster Media No. 2 (Monster Media)(1994).ISO / graphics / show43a.zip / SCROLL1.SHW < prev    next >
Text File  |  1994-06-01  |  978b  |  45 lines
  1. SET CURSOR OFF
  2.  
  3. COLOR FOREGROUND 1
  4. COLOR BACKGROUND 3
  5.  
  6. COLOR ATTRIBUTE 48
  7.  
  8. DEFINE
  9. ///////   ///  ///  ///////     ///////    //////   ///////   //////
  10. //    //  // // //  //    //    //    //  //    //    //     //    //
  11. ////////  // // //  ///////     //    //  ////////    //     ////////
  12. //  //    // // //  //          //    //  //    //    //     //    //
  13. //   //   //    //  //          ///////   //    //    //     //    //
  14. END
  15.  
  16. SCREEN CLEAR
  17.  
  18. GOXY 1 10
  19.  
  20. IF soundtype NE 0 DO
  21.    SPEAK "P-R-OO-G-R-A-M-M-EH-D"
  22.    WAIT 1
  23.    SPEAK "B-I"
  24. ELSE
  25.    WAIT 1
  26. END
  27.  
  28. SET DELAYFACTOR 5
  29.  
  30. MOTION RIGHT 72
  31.  
  32. VARIABLE CREATE scrollloop TYPE NUMBER 1
  33.  
  34. MARK 1             ; Set a mark to jump to
  35. EFFECT SCROLL UP   ; Move screen up
  36. WAIT 1
  37. VARIABLE INCREASE scrollloop 1
  38. IF scrollloop EQ 9 DO JUMPMARK 2
  39. JUMPMARK 1         ; If we've reached here, jump to mark 1
  40. MARK 2             ; Set a mark to jump to
  41.  
  42. VARIABLE RELEASE scrollloop
  43.  
  44. SET CURSOR ON
  45.